(debug_print): New function.

diff --git a/src/print.c b/src/print.c
index 8e4a05fe3af071c2bd263b72f98c4a0634ce9fa4..a5f1f97907f265340a8861d374093300531defd0 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -598,6 +598,15 @@ to make it write to the debugging output.\n")
   
   return character;
 }
+
+/* This is the interface for debugging printing.  */
+
+void
+debug_print (arg)
+     Lisp_Object arg;
+{
+  Fprin1 (arg, Qexternal_debugging_output);
+}
 \f
 #ifdef LISP_FLOAT_TYPE